home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / NIFTOM.ZIP / NIFTODEM.FRM < prev    next >
Text File  |  1994-02-14  |  3KB  |  118 lines
  1. VERSION 2.00
  2. Begin Form NiftoMeterDemo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "NiftoMeter Demo"
  6.    Height          =   4245
  7.    Icon            =   NIFTODEM.FRX:0000
  8.    Left            =   1020
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   3555
  12.    ScaleWidth      =   6570
  13.    Top             =   1140
  14.    Width           =   6690
  15.    Begin HScrollBar Scroller 
  16.       Height          =   315
  17.       LargeChange     =   10
  18.       Left            =   120
  19.       Max             =   100
  20.       TabIndex        =   1
  21.       Top             =   3060
  22.       Width           =   4095
  23.    End
  24.    Begin NiftoMeter NiftoMeter3 
  25.       BackColor       =   &H00FFFFFF&
  26.       BevelInner      =   1  'Inset
  27.       BevelOuter      =   2  'Raised
  28.       BevelWidth      =   2
  29.       BorderStyle     =   0  'None
  30.       BorderWidth     =   2
  31.       ForeColor       =   &H00FF0000&
  32.       Height          =   555
  33.       Left            =   120
  34.       Top             =   120
  35.       Width           =   4095
  36.    End
  37.    Begin NiftoMeter NiftoMeter2 
  38.       BackColor       =   &H0000FFFF&
  39.       BevelInner      =   1  'Inset
  40.       BevelOuter      =   0  'None
  41.       BevelWidth      =   2
  42.       BorderStyle     =   0  'None
  43.       BorderWidth     =   0
  44.       Height          =   2775
  45.       Left            =   4380
  46.       Top             =   120
  47.       Width           =   1995
  48.    End
  49.    Begin CommandButton Demo 
  50.       BackColor       =   &H00C0C0C0&
  51.       Caption         =   "&Demo"
  52.       Height          =   375
  53.       Left            =   4380
  54.       TabIndex        =   0
  55.       Top             =   3060
  56.       Width           =   1995
  57.    End
  58.    Begin NiftoMeter NiftoMeter1 
  59.       BackColor       =   &H000000FF&
  60.       BevelInner      =   2  'Raised
  61.       BevelOuter      =   1  'Inset
  62.       BevelWidth      =   2
  63.       BorderStyle     =   0  'None
  64.       BorderWidth     =   4
  65.       FontBold        =   -1  'True
  66.       FontItalic      =   -1  'True
  67.       FontName        =   "Arial"
  68.       FontSize        =   13.5
  69.       FontStrikethru  =   0   'False
  70.       FontUnderline   =   0   'False
  71.       ForeColor       =   &H0000FF00&
  72.       Height          =   2115
  73.       Left            =   120
  74.       Top             =   780
  75.       Width           =   4095
  76.    End
  77.    Begin Menu mnuHelp 
  78.       Caption         =   "&Help!"
  79.    End
  80. End
  81. Option Explicit
  82.  
  83. Const HELP_CONTENTS = &H3     ' Display Help for a particular topic
  84.  
  85. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Long) As Integer
  86.  
  87. Sub Demo_Click ()
  88.     Dim i As Integer
  89.  
  90.     For i = 0 To 100
  91.         NiftoMeter1.CompletedItems = i
  92.         NiftoMeter2.CompletedItems = i
  93.         NiftoMeter3.CompletedItems = i
  94.     Next i
  95.     For i = 100 To 0 Step -1
  96.         NiftoMeter1.CompletedItems = i
  97.         NiftoMeter2.CompletedItems = i
  98.         NiftoMeter3.CompletedItems = i
  99.     Next i
  100. End Sub
  101.  
  102. Sub Form_Unload (Cancel As Integer)
  103.     End
  104. End Sub
  105.  
  106. Sub mnuHelp_Click ()
  107.     Dim i As Integer
  108.  
  109.     i = WinHelp(hWnd, "niftomet.hlp", HELP_CONTENTS, 0)
  110. End Sub
  111.  
  112. Sub Scroller_Change ()
  113.     NiftoMeter1.CompletedItems = Scroller.Value
  114.     NiftoMeter2.CompletedItems = Scroller.Value
  115.     NiftoMeter3.CompletedItems = Scroller.Value
  116. End Sub
  117.  
  118.